home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / dbdalpha.igb < prev    next >
Text File  |  1993-08-23  |  2KB  |  74 lines
  1. inst4.1     !Sept 10, 1992
  2. !****************************************************************
  3. !*                                *
  4. !*    EDBD/DBD Learning Rates                    *
  5. !*                                *
  6. !****************************************************************
  7. !
  8.  
  9. @LLsl                !Load super-layer
  10. =n6    Lpes            !Number of layers
  11. =LayN    0
  12.  
  13. ! Loop over all layers looking for DBD learn function
  14. :DBDAlph
  15.  
  16. !Look for an DBD layer
  17. +LayN    1            !next layer
  18. ?LayN    n6
  19. >bgt    DBDAEnd            !past output layer
  20. @LLly                !load the layer
  21. ?Llrn    "Delta-Bar-Delta"    !DBD learn function?
  22. >beq    IsDBD            !success
  23. ?Llrn    "Ext DBD"        !EDBD learn function?
  24. >bne    DBDAlph            !no, try again
  25.  
  26. :IsDBD
  27. !
  28. !NOTE: following assumes that network builder assigns
  29. !different names to each layer
  30. =PNam    LDln            !probe name = layer name
  31.  
  32. ! Add probe
  33. =NPEl    LayN            !point to layer
  34. @PbAS                !Add Probe
  35. @PbDC                !Delete all components
  36. @PALy                !Add Near Layer to Probe
  37.  
  38. ! Now build the instrument
  39. @ILdD                !load default instrument
  40. =ITit    PNam            !Instrument title
  41. +ITit    " Lrn Rates"
  42. =IGTy    "Hist"            !Graph Type
  43. =IGVr    "AuxWt1"
  44. =ITTy    "RMS"            !RMS Transformation Type
  45. =ITMd    0            !No transformation
  46. =IEpc    0            !No epoch
  47. =Ignx    40            !#bars
  48.  
  49. ! Height and width
  50. =f0    Ignx
  51. *f0    5.0            !5 pixels per bar
  52. =Ihgt    50            !height of graph
  53. =Iwdt    f0            !Width of graph
  54.  
  55. =Ivmn    0.0
  56. =Ivmx    2.0
  57. =ILnA    1            !Active in Learn
  58. =IRcA    0            !Inctive in recall
  59. =ILDv    10            !Every 10 iterations
  60. =ILRm    0
  61. =IRDv    0
  62. =IRRm    0
  63. =IPrb    PNam            !Point to probe
  64. =ICAc    0            !Convergence criterion inactive
  65. =ICTh    0.0            !Convergence Threshold
  66. !Let NeuralWorks figure out where to put instrument
  67. =x    0
  68. =y    0
  69. @IAdd                !Now create instrument
  70. !
  71. >br    DBDAlph            !Do next layer
  72.  
  73. :DBDAEnd
  74.